home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iiwizfncs.inc < prev    next >
Encoding:
Text File  |  1998-06-30  |  6.0 KB  |  202 lines
  1. <%
  2. Const BOLD = True
  3. Const STYLE = "color:black;font-size:9pt;font-family:"
  4.  
  5. Dim quote
  6. quote = chr(34)
  7.  
  8. '***************generic wizard global vars***************
  9. Dim sSystemFontSize, iThisPage, iNextPage, iPrevPage
  10. sSystemFontSize = "SMALL"
  11. iThisPage = CInt(Request("iThisPage"))
  12. if iThisPage = 0 then
  13.     iThisPage = 1
  14. end if
  15. iNextPage = iThisPage + 1
  16. iPrevPage = iThisPage - 1
  17.  
  18. '***************generic wizard functions***************
  19. Function sStaticText(sDesc,BOLD)
  20.     Dim sOutputStr
  21.     sOutputStr = "<TR><TD VALIGN='top' COLSPAN = 2>"
  22.     sOutputStr = sOutputStr  & sFont("","","",True)
  23.     if BOLD then
  24.         sOutputStr = sOutputStr & "<B>"
  25.     end if
  26.     sOutputStr = sOutputStr & sDesc
  27.     sOutputStr = sOutputStr & "<P>"
  28.     sOutputStr = sOutputStr & "</FONT>"
  29.     sOutputStr = sOutputStr & "</TD></TR>"
  30.  
  31.     sStaticText = sOutputStr
  32. End Function
  33.  
  34. Function sTextBox(sName, sDesc, iSize, onBlur)
  35.     Dim sOutputStr
  36.     sOutputStr = sTextBoxwChange(sName, sDesc, iSize, onBlur,"")
  37.     sTextBox = sOutputStr
  38. End Function
  39.  
  40. Function sTextBoxwChange(sName, sDesc, iSize, onBlur,onChange)
  41.     Dim sOutputStr
  42.     sOutputStr = sTextBoxwDefault(sName, sDesc, iSize, onBlur, onChange, "")
  43.     sTextBoxwChange = sOutputStr
  44. End Function
  45.  
  46. Function sTextBoxwDefault(sName, sDesc, iSize, onBlur, onChange, sDefault)
  47.     Dim sOutputStr
  48.     Dim sValue
  49.  
  50.     ' Don't let default overwrite persisted info
  51.     sValue = Request(sName)
  52.     if sValue = "" then
  53.         sValue = sDefault
  54.     end if
  55.  
  56.     sOutputStr = "<TR><TD VALIGN='top'>"
  57.     sOutputStr = sOutputStr  & sFont("","","",True)
  58.     sOutputStr = sOutputStr & sDesc & "<BR>"
  59.     sOutputStr = sOutputStr & "<INPUT NAME=" & quote & sName & quote & " VALUE=" & quote & sValue & quote
  60.     sOutputStr = sOutputStr & " SIZE = " & (Session("BrowserTBScalePct") * iSize/100)
  61.     if onBlur <> "" then
  62.         sOutputStr = sOutputStr & " onBlur=" & quote & onBlur & quote    
  63.     end if
  64.     if onChange <> "" then
  65.         sOutputStr = sOutputStr & " onChange=" & quote & onChange & quote    
  66.     end if    
  67.     if Session("hasStyles") then 
  68.         sOutputStr = sOutputStr & Session("DEFINPUTSTYLE")
  69.     end if
  70.     sOutputStr = sOutputStr & "><P>"
  71.     sOutputStr = sOutputStr & "</FONT>"
  72.     sOutputStr = sOutputStr & "</TD></TR>"
  73.  
  74.     sTextBoxwDefault = sOutputStr
  75. End Function
  76.  
  77. Function sHidden(sName, sValue)
  78.     Dim sOutputStr
  79.     sOutputStr = "<TR><TD VALIGN='top'>"
  80.     sOutputStr = sOutputStr & "<INPUT TYPE='hidden' NAME=" & quote & sName & quote & " VALUE=" & quote  & sValue & quote & "><P>"
  81.     sOutputStr = sOutputStr & "</TD></TR>"
  82.  
  83.     sHidden = sOutputStr
  84. End Function
  85.  
  86. Function sCheckBox(sName, sDesc)
  87.     Dim sOutputStr
  88.     sOutputStr = "<TR><TD VALIGN='top'>"
  89.     sOutputStr = sOutputStr & sFont("","","",True)
  90.     sOutputStr = sOutputStr & "<INPUT TYPE='checkbox' NAME=" & quote & sName & quote
  91.     if Request(sName) <> "" then
  92.         sOutputStr = sOutputStr & " CHECKED "
  93.     end if
  94.     sOutputStr = sOutputStr & "> " & sDesc & "<BR>"
  95.     sOutputStr = sOutputStr & "</FONT>"
  96.     sOutputStr = sOutputStr & "</TD></TR>"
  97.  
  98.     sCheckBox = sOutputStr
  99. End Function
  100.  
  101. Function sRadio(sName, sVal, sDesc, sDefault, onClick)
  102.     Dim sOutputStr, lastval
  103.     sOutputStr = "<TR><TD VALIGN='top'>"
  104.     sOutputStr = sOutputStr & sFont("","","",True)
  105.     sOutputStr = sOutputStr & "<INPUT TYPE='radio' NAME=" & quote & sName & quote
  106.     sOutputStr = sOutputStr & " VALUE=" & quote & sVal & quote
  107.     
  108.     lastval = Request(sName)
  109.     if isNumeric(lastval) then
  110.         lastval = cInt(lastval)
  111.     else
  112.         lastval = sDefault
  113.     end if
  114.     
  115.     if lastval = sVal then
  116.         sOutputStr = sOutputStr & " CHECKED"
  117.     end if
  118.     if onClick <> "" then
  119.         sOutputStr = sOutputStr & " OnClick=" & quote & onClick & quote
  120.     end if
  121.     sOutputStr = sOutputStr & "></TD><TD VALIGN='middle'>"
  122.     sOutputStr = sOutputStr & sFont("","","",True)
  123.     sOutputStr = sOutputStr & sDesc & "<BR>"
  124.     sOutputStr = sOutputStr & "</FONT>"
  125.     sOutputStr = sOutputStr & "</TD></TR>"
  126.  
  127.     sRadio = sOutputStr
  128. End Function
  129.  
  130.  
  131. Function sSelect(sName, iSize, onChange, bMultiple)
  132.     Dim sOutputStr
  133.     sOutputStr = "<TR><TD VALIGN='top'>"
  134.     sOutputStr = sOutputStr  & sFont("","","",True)
  135.     sOutputStr = sOutputStr & "<SELECT NAME=" & quote & sName & quote & " SIZE = " & iSize
  136.     if onChange <> "" then
  137.         sOutputStr = sOutputStr & " onChange=" & quote & onChange & quote    
  138.     end if
  139.     if bMultiple then
  140.         sOutputStr = sOutputStr & " MULTIPLE"    
  141.     end if
  142.     if Session("hasStyles") then 
  143.         sOutputStr = sOutputStr & " style=" & quote & STYLE & Session("FONTFACE") & quote    
  144.     end if
  145.     sOutputStr = sOutputStr & ">"
  146.     sSelect = sOutputStr
  147. End Function
  148.  
  149. Function closeSelect()
  150.     Dim sOutputStr
  151.     sOutputStr = "</SELECT></TD></TR>"    
  152.     closeSelect = sOutputStr    
  153. End Function
  154.  
  155. Function sOption(sCaption,sValue, bIsSelected)
  156.     Dim sOutputStr
  157.     sOutputStr = sOutputStr & "<OPTION"
  158.     if sValue <> "" then
  159.         sOutputStr = sOutputStr & " VALUE=" & quote & sValue & quote
  160.     end if
  161.     if bIsSelected then
  162.         sOutputStr = sOutputStr & " SELECTED"        
  163.     end if
  164.     sOutputStr = sOutputStr & ">" & sCaption
  165.     sOutputStr = sOutputStr & "</OPTION>"
  166.     sOption = sOutputStr
  167. End Function
  168.  
  169. Function sTextArea(sName, sDesc, sText, iRows, iCols, bEnabled)
  170.     Dim sOutputStr
  171.     sOutputStr = "<TR><TD VALIGN='top'>"
  172.     sOutputStr = sOutputStr  & sFont("","","",True)
  173.     sOutputStr = sOutputStr & sDesc & "<BR>"
  174.     sOutputStr = sOutputStr & "<TEXTAREA NAME=" & quote & sName & quote & " ROWS = " & iRows & " COLS = " & iCols
  175.     sOutputStr = sOutputStr & " WRAP=VIRTUAL"    
  176.     if Session("hasStyles") then 
  177.         sOutputStr = sOutputStr & " style=" & quote & STYLE & Session("FONTFACE") & quote
  178.     end if
  179.     sOutputStr = sOutputStr & ">"
  180.     sOutputStr = sOutputStr & sText    
  181.     sOutputStr = sOutputStr & "</TEXTAREA>"
  182.     sOutputStr = sOutputStr & "</FONT>"
  183.     sOutputStr = sOutputStr & "</TD></TR>"
  184.  
  185.     sTextArea = sOutputStr
  186. End Function
  187.  
  188. Function sSpace(iNumRows)
  189.     Dim sOutputStr
  190.     sOutputStr = ""
  191.     For i = 0 to iNumRows
  192.         sOutputStr = "<TR><TD VALIGN='top'>"
  193.         sOutputStr = sOutputStr  & sFont("","","",True)
  194.         sOutputStr = sOutputStr & " "
  195.         sOutputStr = sOutputStr & "</FONT>"
  196.         sOutputStr = sOutputStr & "</TD></TR>"
  197.     Next
  198.     sSpace = sOutputStr
  199. End Function
  200.  
  201.  
  202. %>